home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 15
/
Aminet 15 - Nov 1996.iso
/
Aminet
/
comm
/
mail
/
YamNet.lha
/
FSCode.lha
/
Rexx
/
Spot
/
UUDecode.spot
< prev
next >
Wrap
Text File
|
1995-03-12
|
2KB
|
68 lines
/* UUDecode.spot written by François Helsen */
/* Thanks to David Nouls and Alex Van Boxel */
/* for their inspiration */
/* Install as 'UUDecode...' in the ARexx menu. */
/* $VER: UUDecode.spot 1.8MA (18.3.94) */
/* Again modified by David Nouls */
/* Addedd FSCode support by Marco Amadori 2:333/408.9 */
address spot
options results
'ismessages'
if rc = 5 then do
'requestnotify "Use in message window only!"'
exit
end
cmd.n = 2 /* Number of Decoder */
cmd.1 = 'C:UUOut' /* Full path to command UUDecode or similar */
cmd.2 = 'C:FSCode' /* Full path to command FSCode */
cmd.bgn.1 = 'begin' /* Start word for UUDecode */
cmd.bgn.2 = '!start' /* Start word for FSCode */
defpath = 'RAM:'
work = 'T:'
call AddLib('rexxsupport.library',0,-30,0)
saveascii work'spotuu.temp' overwrite
if Open(in,work'spotuu.temp','r') then do
do until eof(in)
parola = word(readln(in),1)
do c = 1 to 2
if parola = cmd.bgn.c then do
k = c
break
end
end
end
call Close(in)
if k >= 1 then do
'requestpath title "Pick a directory" path 'defpath
if rc = 0 then do
dirname = result
olddir = pragma('d', dirname)
ADDRESS COMMAND cmd.k work'spotuu.temp'
call pragma('d', olddir)
'requestnotify "File decoded..."'
end
end
else do
'requestnotify "This message does not contain UU/FS Encoded Data"'
end
call Delete(work'spotuu.temp')
end
exit /* done here */